10 '  REM C/O MONITOR / CHAR DISPLAY ADAPTOR SWITCH
20 DEF SEG = 0
30 TESTADAP = PEEK (&H410) : ' IDENTIFY ADAPTER IN SYSTEM
40 IF (TESTADAP AND &H30) = &H30 THEN GOTO 90
50 ADAPTER$ = "MONO": 'SWITCH TO MONOCHROME ADAPTER
60 POKE &H410, (TESTADAP OR &H30)
70 SCREEN 0,0,0,0: WIDTH 80: LOCATE ,,1,12,13
80 GOTO 120
90 ADAPTER$ = "KODA": ' SWITCH TO COLOR/GRAPHICS ADAPTER
100 POKE &H410,  (TESTADAP AND &HCF) OR &H20
110 SCREEN 0,1,0,0: WIDTH 40: LOCATE ,,1,6,7
115 OUT 980,2: OUT 981,43
120 END: 'RETURN IF USED AS SUB ROUTINE
CF) OR &H20
110 SCREEN 0,1,0,0: WIDTH 40: LOCATE ,,1,6,7
115 OUT 980,2: OUT 981,43
120 END: 'RE